﻿Imports CrystalDecisions.Shared

Public Class frmLibro


    Private Sub btnGenerar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenerar.Click
        Dim con As New ConexionBD
        Dim report As New rptLibrodeComprasRecmetal

        Dim FechaDV, SucursalDV As New ParameterDiscreteValue
        If cbSucursal.Text = "JM" Then
            If cbLibro.Text = "Libro de Compras" Then
                Dim ReportJomex As New LibroComprasJomex
                con.BasededatosP = "Jomex"
                ReportJomex.DataSourceConnections(0).SetConnection(con.ServidorP, con.BasededatosP, con.UsuarioP, con.PasswordP)
                FechaDV.Value = dtp1.Value
                ReportJomex.SetParameterValue("@Fecha", FechaDV)
                ReportJomex.SetParameterValue("@Fecha", FechaDV, "LibroComprasJomexResumen.rpt")
                SucursalDV.Value = cbSucursal.Text
                ReportJomex.SetParameterValue("@Sucursal", SucursalDV)
                ReportJomex.SetParameterValue("@Sucursal", SucursalDV, "LibroComprasJomexResumen.rpt")
                CrystalReportViewer1.ReportSource = ReportJomex
            Else
                Dim ReportJomex As New LibroImpuestoRetenidoJomex
                con.BasededatosP = "Jomex"
                ReportJomex.DataSourceConnections(0).SetConnection(con.ServidorP, con.BasededatosP, con.UsuarioP, con.PasswordP)
                FechaDV.Value = dtp1.Value
                ReportJomex.SetParameterValue("@Fecha", FechaDV)
                'ReportJomex.SetParameterValue("@Fecha", FechaDV, "LibroComprasJomexResumen.rpt")
                SucursalDV.Value = cbSucursal.Text
                ReportJomex.SetParameterValue("@Sucursal", SucursalDV)
                'ReportJomex.SetParameterValue("@Sucursal", SucursalDV, "LibroComprasJomexResumen.rpt")
                CrystalReportViewer1.ReportSource = ReportJomex
            End If
            
        ElseIf cbSucursal.Text = "BL" Then
            If cbLibro.Text = "Libro de Compras" Then
                Dim ReportBulnes As New rptLibroComprasBulnes
                con.BasededatosP = "Recmetal"
                ReportBulnes.DataSourceConnections(0).SetConnection(con.ServidorP, con.BasededatosP, con.UsuarioP, con.PasswordP)
                FechaDV.Value = dtp1.Value
                ReportBulnes.SetParameterValue("@Fecha", FechaDV)
                ReportBulnes.SetParameterValue("@Fecha", FechaDV, "rptResumen.rpt")
                SucursalDV.Value = cbSucursal.Text
                ReportBulnes.SetParameterValue("@Sucursal", SucursalDV)
                ReportBulnes.SetParameterValue("@Sucursal", SucursalDV, "rptResumen.rpt")
                CrystalReportViewer1.ReportSource = ReportBulnes
            Else
                Dim ReportBulnes As New rptLibroImpuestoRetenidoBulnes
                con.BasededatosP = "Recmetal"
                ReportBulnes.DataSourceConnections(0).SetConnection(con.ServidorP, con.BasededatosP, con.UsuarioP, con.PasswordP)
                FechaDV.Value = dtp1.Value
                ReportBulnes.SetParameterValue("@Fecha", FechaDV)
                'ReportJomex.SetParameterValue("@Fecha", FechaDV, "LibroComprasJomexResumen.rpt")
                SucursalDV.Value = cbSucursal.Text
                ReportBulnes.SetParameterValue("@Sucursal", SucursalDV)
                'ReportJomex.SetParameterValue("@Sucursal", SucursalDV, "LibroComprasJomexResumen.rpt")
                CrystalReportViewer1.ReportSource = ReportBulnes
            End If
        Else
            If cbLibro.Text = "Libro de Compras" Then
                con.BasededatosP = "Recmetal"
                report.DataSourceConnections(0).SetConnection(con.ServidorP, con.BasededatosP, con.UsuarioP, con.PasswordP)
                FechaDV.Value = dtp1.Value
                report.SetParameterValue("@Fecha", FechaDV)
                report.SetParameterValue("@Fecha", FechaDV, "rptResumen.rpt")

                'SucursalDV.Value = cbSucursal.Text
                'report.SetParameterValue("@Sucursal", SucursalDV)
                'report.SetParameterValue("@Sucursal", SucursalDV, "rptResumen.rpt")

                CrystalReportViewer1.ReportSource = report
            Else
                Dim reportImpRet As New rptLibroImpuestoRetenido
                con.BasededatosP = "Recmetal"
                reportImpRet.DataSourceConnections(0).SetConnection(con.ServidorP, con.BasededatosP, con.UsuarioP, con.PasswordP)
                FechaDV.Value = dtp1.Value
                reportImpRet.SetParameterValue("@Fecha", FechaDV)
                reportImpRet.SetParameterValue("@Fecha", FechaDV, "rptResumenImptRet")

                'SucursalDV.Value = cbSucursal.Text
                'reportImpRet.SetParameterValue("@Sucursal", SucursalDV)
                'reportImpRet.SetParameterValue("@Sucursal", SucursalDV, "rptResumen.rpt")

                CrystalReportViewer1.ReportSource = reportImpRet
            End If
            
        End If
 

    End Sub
End Class
